home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Freeware / Animconvert / Install < prev    next >
Text File  |  2002-10-27  |  8KB  |  369 lines
  1. ; * $VER: Install Anim Converter 1.1
  2. ; * Script written by Eckhard Ludwig
  3. ;=============================================================================
  4.  
  5. (complete 0)
  6.  
  7. (set Opt 2)
  8. (set #welcome
  9.   (cat
  10.     "\n\n\nWelcome to the Anim Converter installation utility.\n\n"
  11.     "This program lets you install AnimConverter 1.1 on your Amiga.\n\n\n"
  12.     "AnimConverter © 1997 Eckhard Ludwig."
  13.   ))
  14.  
  15. (set #choose-text
  16.   (cat "Please choose a directory where AnimConvert should be installed. A drawer will be created there."
  17.   ))
  18.  
  19. (set #choose-help
  20.   (cat "In this location a drawer will be created. All files will be installed inside this drawer. The complete installation will require about 1.7MB of free harddisk space."
  21.   ))
  22.  
  23. (set #inst-main
  24.   (cat "Installing AnimConvert ..."
  25.   ))
  26.  
  27. (set #inst-Libs
  28.   (cat "Install "
  29.   ))
  30.  
  31. (set #inst-Lokale
  32.   (cat "Installing Lokale.exe ..."
  33.   ))
  34.  
  35. (set #create-maindir
  36.   (cat "Creating AnimConvert directory"
  37.   ))
  38.  
  39. (set #create-bindir
  40.   (cat "Creating Bin dir"
  41.   ))
  42.  
  43. (set #create-docsdir
  44.   (cat "Creating Docs dir"
  45.   ))
  46.  
  47. (set #inst-bin
  48.   (cat "Installing Tools ..."
  49.   ))
  50.  
  51. (set #inst-docs
  52.   (cat "Installing program documentation ..."
  53.   ))
  54.  
  55. (set #inst-fonts
  56.   (cat "Installing XEN Fonts ..."
  57.   ))
  58.  
  59. (set #Install-Prompt 
  60.   (cat "Which of the following locale should be installed ?\nItems marked as (n/a) are not available in the current installation archive !"
  61.   ))
  62.  
  63. (set #Locale-Copy   "Copy cataloges ...")
  64.  
  65.  
  66.  (SET #exit-Msg 
  67.   (CAT "\n\nMuch fun with Programmes\n wish you\n\n"
  68.                    "Eckhard Ludwig" 
  69.   ))
  70.  
  71. ; deutsche Texte *****************************
  72.  
  73. (IF (= @language "deutsch")
  74. (
  75. (set Opt 1)
  76. (set #welcome
  77.   (cat
  78.     "\n\n\nWillkommen zu dem Animations Converter Installations Utility.\n\n"
  79.     "Dieses Programm installiert AnimConverter 1.1 auf Ihrem Amiga.\n\n\n"
  80.     "AnimConverter ist ©1997 by Eckhard Ludwig."
  81.   ))
  82.  
  83. (set #choose-text
  84.   (cat "Bitte wählen Sie das Verzeichniss wohin AnimConvert installiert werden soll. Dieses Installationsscript legt dort selbst eine Schublade an."
  85.   ))
  86.  
  87. (set #choose-help
  88.   (cat "Bei der Installation werden alle Dateien in dieses Verzeichniss installiert. Die vollständige Installation von AnimConvert belegt auf der Festplatte etwa 1,7MB."
  89.   ))
  90.  
  91. (set #create-maindir
  92.   (cat "Erstelle AnimConvert-Verzeichniss"
  93.   ))
  94.  
  95. (set #inst-main
  96.   (cat "Installiere Hauptprogramm ..."
  97.   ))
  98.  
  99. (set #inst-Libs
  100.   (cat "Installiere "
  101.   ))
  102.  
  103. (set #inst-Lokale
  104.   (cat "Installiere Lokale.exe ..."
  105.   ))
  106.  
  107. (set #create-bindir
  108.   (cat "Erstelle BIN-Verzeichniss"
  109.   ))
  110.  
  111. (set #create-docsdir
  112.   (cat "Erstelle Docs-Verzeichniss"
  113.   ))
  114.  
  115. (set #inst-bin
  116.   (cat "Installiere Tools ..."
  117.   ))
  118.  
  119. (set #inst-docs
  120.   (cat "Installiere Programm Dokumentation ..."
  121.   ))
  122.  
  123. (set #inst-fonts
  124.   (cat "Installiere XEN Fonts ..."
  125.   ))
  126.  
  127. (set #Install-prompt 
  128.   (cat "Bitte wählen Sie für das Programm die bevorzugte(n) Sprachversion(en).\nMit n/a gekennzeichnete Sprachen sind momentan nicht verfügbar."
  129.   ))
  130.  
  131. (set #Locale-Copy   "Kopiere Cataloge ...")
  132.  
  133.  
  134. (SET #exit-Msg
  135.   (CAT "\n\nViel Spaß mit den Programmen\n wünscht\n\n"
  136.                    "Eckhard Ludwig"
  137.   ))
  138. ))
  139. ;*********************************************
  140. ; Greetings & Path ...
  141.  
  142. (message #welcome)
  143.  
  144. (welcome)
  145.  
  146. (set @default-dest (getassign "Work" "dva"))
  147.   (if (= @default-dest "")
  148.    (set @default-dest "SYS:"))
  149.   
  150. (set @default-dest (askdir
  151.     (prompt #choose-text)
  152.     (help #choose-help)
  153.     (default @default-dest))
  154.   ) 
  155.   
  156. (set @default-dest (tackon @default-dest "AnimConvert"))
  157.  
  158. (makedir @default-dest (prompt #create-maindir)(infos))
  159.   
  160. ;*********************************************
  161. ; Installation procedure
  162. ; 
  163.  
  164. (copyfiles
  165.     (prompt    #inst-main)
  166.     (help    @copyfiles-help)
  167.     (source "AnimConvert")
  168.     (dest    @default-dest)
  169.         (confirm "EXPERT")
  170.         (optional "force" "askuser")
  171.     (infos)
  172. )
  173.  
  174. (complete 5)
  175.  
  176. (makedir (tackon @default-dest "bin")
  177.  (prompt #create-bindir)
  178. )
  179.  
  180. (copyfiles
  181.     (prompt    #inst-bin)
  182.     (help    @copyfiles-help)
  183.     (source "bin")
  184.     (dest    (tackon @default-dest "bin"))
  185.        (pattern "#?")
  186.        (optional "force" "askuser")
  187.        (confirm "EXPERT")
  188.        (files)
  189. )
  190.  
  191.  
  192. (complete 50)
  193.  
  194. (makedir (tackon @default-dest "Docs")
  195.  (prompt #create-docsdir)
  196.  (infos)
  197. )
  198.  
  199. (copyfiles
  200.     (prompt    #inst-docs)
  201.     (help    @copyfiles-help)
  202.     (source "Docs")
  203.     (dest    (tackon @default-dest "Docs"))
  204.        (pattern "#?")
  205.        (optional "force" "askuser")
  206.        (confirm "EXPERT")
  207.        (files)
  208.     (infos)
  209. )
  210.  
  211. (complete 70)
  212.  
  213. (copyfiles
  214.     (prompt    #inst-fonts)
  215.     (help    @copyfiles-help)
  216.     (source "Fonts")
  217.     (dest    "SYS:Fonts")
  218.        (pattern "#?")
  219.        (optional "force" "askuser")
  220.        (confirm "EXPERT")
  221.        (files)
  222. )
  223. (copyfiles
  224.     (prompt    #inst-fonts)
  225.     (help    @copyfiles-help)
  226.     (source "Fonts/XEN")
  227.     (dest    "SYS:Fonts/XEN")
  228.        (pattern "#?")
  229.        (optional "force" "askuser")
  230.        (confirm "EXPERT")
  231.        (files)
  232. )
  233. (complete 80)
  234.  
  235. ;*********************************************
  236. ; copy the locales
  237.  
  238. (IF (= @language "All")
  239.     (set Opt 511))
  240.  
  241. (set installchoice
  242.    (askoptions
  243.    (prompt #Install-Prompt)
  244.    (help @askoptions-help)
  245.    (choices "Deutsch" "English" "dansk n/a" "français n/a" "italiano" "nederlands" "norsk n/a" "suomi n/a" "svenska n/a")
  246.    (default Opt)
  247. ))
  248.  
  249. (IF (BITAND installchoice 2)
  250.   (copyfiles
  251.    (prompt #Locale-Copy)
  252.    (help @copyfiles-help)
  253.    (source "Locale/Catalogs/english")
  254.    (dest "SYS:Locale/Catalogs/english")
  255.    (pattern "#?.catalog")
  256.    (confirm "EXPERT")
  257.    (optional "force" "askuser" "nofail")
  258.   ))
  259.  
  260. (IF (BITAND installchoice 4)
  261.   (copyfiles
  262.    (prompt #Locale-Copy)
  263.    (help @copyfiles-help)
  264.    (source "Locale/Catalogs/dansk")
  265.    (dest "SYS:Locale/Catalogs/dansk")
  266.    (pattern "#?.catalog")
  267.    (confirm "EXPERT")
  268.    (optional "force" "askuser" "nofail")
  269.   ))
  270.  
  271. (IF (BITAND installchoice 8)
  272.   (copyfiles
  273.    (prompt #Locale-Copy)
  274.    (help @copyfiles-help)
  275.    (source "Locale/Catalogs/français")
  276.    (dest "SYS:Locale/Catalogs/français")
  277.    (pattern "#?.catalog")
  278.    (confirm "EXPERT")
  279.    (optional "force" "askuser" "nofail")
  280.   ))
  281.  
  282. (IF (BITAND installchoice 16)
  283.   (copyfiles
  284.    (prompt #Locale-Copy)
  285.    (help @copyfiles-help)
  286.    (source "Locale/Catalogs/italiano")
  287.    (dest "SYS:Locale/Catalogs/italiano")
  288.    (pattern "#?.catalog")
  289.    (confirm "EXPERT")
  290.    (optional "force" "askuser" "nofail")
  291.   ))
  292.  
  293. (IF (BITAND installchoice 32)
  294.   (copyfiles
  295.    (prompt #Locale-Copy)
  296.    (help @copyfiles-help)
  297.    (source "Locale/Catalogs/nederlands")
  298.    (dest "SYS:Locale/Catalogs/nederlands")
  299.    (pattern "#?.catalog")
  300.    (confirm "EXPERT")
  301.    (optional "force" "askuser" "nofail")
  302.   ))
  303.  
  304. (IF (BITAND installchoice 64)
  305.   (copyfiles
  306.    (prompt #Locale-Copy)
  307.    (help @copyfiles-help)
  308.    (source "Locale/Catalogs/norsk")
  309.    (dest "SYS:Locale/Catalogs/norsk")
  310.    (pattern "#?.catalog")
  311.    (confirm "EXPERT")
  312.    (optional "force" "askuser" "nofail")
  313.   ))
  314.  
  315. (IF (BITAND installchoice 128)
  316.   (copyfiles
  317.    (prompt #Locale-Copy)
  318.    (help @copyfiles-help)
  319.    (source "Locale/Catalogs/suomi")
  320.    (dest "SYS:Locale/Catalogs/suomi")
  321.    (pattern "#?.catalog")
  322.    (confirm "EXPERT")
  323.    (optional "force" "askuser" "nofail")
  324.   ))
  325.  
  326. (IF (BITAND installchoice 256)
  327.   (copyfiles
  328.    (prompt #Locale-Copy)
  329.    (help @copyfiles-help)
  330.    (source "Locale/Catalogs/svenska")
  331.    (dest "SYS:Locale/Catalogs/svenska")
  332.    (pattern "#?.catalog")
  333.    (confirm "EXPERT")
  334.    (optional "force" "askuser" "nofail")
  335.   ))
  336.  
  337. (complete 80)
  338.  
  339. (IF (> installchoice 1)
  340.     (copyfiles
  341.     (prompt    #inst-lokale)
  342.     (help    @copyfiles-help)
  343.     (source "Locale.exe")
  344.     (dest    @default-dest)
  345.         (confirm "EXPERT")
  346.         (optional "force" "askuser")
  347. ))
  348.  
  349. (complete 90)
  350.  
  351. ;*********************************************
  352. ; Set Loadpath SYS: (Tooltype), falls Work: not exists 
  353.  
  354. (set #Loadpath (getassign "Work" "dva"))
  355.   (if (= #Loadpath "")
  356.     (tooltype
  357.     (prompt "Set Tooltype")
  358.     (help @askchoice-help)
  359.     (dest (tackon @default-dest "AnimConvert"))
  360.         (confirm "EXPERT")
  361.         (optional "force" "askuser")
  362.     (settooltype "LOADDIR" "SYS:")
  363.   ))
  364.  
  365. (complete 100)
  366.  
  367.  
  368. (EXIT #exit-Msg )
  369.